home *** CD-ROM | disk | FTP | other *** search
/ ShareWare OnLine 2 / ShareWare OnLine Volume 2 (CMS Software)(1993).iso / util2 / vol12n11.zip / EATDIS.ZIP / EATDISK.PAS < prev   
Pascal/Delphi Source File  |  1992-10-20  |  589b  |  22 lines
  1. PROGRAM EatDisk;
  2.   {First parameter is number of kilobytes to "eat",
  3.    second is directory in which to create EATDISK.$$$
  4.      e.g. EATDISK 4096 D:\ to eat 4M on drive D:}
  5. VAR
  6.   HowMuch : LongInt;
  7.   Code    : Integer;
  8.   F       : File;
  9. BEGIN
  10.   IF ParamCount > 1 THEN
  11.     BEGIN
  12.       Val(ParamStr(1), HowMuch, Code);
  13.       IF (Code = 0) AND (HowMuch > 0) THEN
  14.         BEGIN
  15.           Assign(F, ParamStr(2)+'EATDISK.$$$');
  16.           Rewrite(F, 1);
  17.           Seek(F, (HowMuch * 1024) - 2);
  18.           BlockWrite(F, Code, 2);
  19.           Close(F);
  20.         END;
  21.     END;
  22. END.